home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8607.d64
/
sim. c64_sim.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
744b
|
21 lines
100 : REM* SIMULATION VON SCHWINGUNGSVORGAENGEN *
105 : REM* FUER C64 BITTE VORHER SIMON'S BASIC LADEN *
110 : REM* ODER GRAPHIKBEFEHLE AN EIGENES SYSTEM ANPASSEN *
113 :
115 :
120 : REM* KENNGROESSEN DES SCHWINGUNGSSYSTEMS *
130 EFQ=.01:D=0:A=0:WA=0
140 V=0:X=80: REM* ANFANGSBEDINGUNGEN *
150 : XM=1:C=0: REM* X-MASSSTAB *
160 : d1,6: REM* GRAPHIK EINSCHALTEN *
170 : d0,100,319,100,1: REM* ABSZISSE *
180 : d0,0,0,199,1: REM* ORDINATE *
190 FOR N=0TO319
200 V=V-D*V-EFQ*X-A*SIN(WA*N):X=X+V
210 : IFABS(X)>XM*100THEN250: REM* d~OR VERMEIDEN *
220 : IFC=0THENdN,100-X/XM,1:C=1:GOTO240: REM* 1.PUNKT SETZEN *
230 : dN-1,100-XL/XM,N,100-X/XM,1: REM* PUNKTE VERBINDEN *
240 : XL=X: REM* LETZTES X MERKEN *
250 NEXT
260 : GOTO260: REM* WARTESCHLEIFE. AUSSTIEG MIT STOP-TASTE *